home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aad.d64 / proc.italics < prev    next >
Text File  |  2007-02-28  |  300b  |  12 lines
  1. 0010 //
  2. 0020 ╨╥╧├ ITALICS(X,Y,STRING$) ├╠╧╙┼─
  3. 0030   ╒╙┼ GRAPHICS
  4. 0040   PLOTTEXT(X,Y,STRING$)
  5. 0050   Z:=╠┼╬(STRING$)
  6. 0060   VIEWPORT(X,X+Z*8+1,Y,Y+2)
  7. 0070   PLOTTEXT(X-1,Y,STRING$)
  8. 0080   VIEWPORT(X-2,X+Z*8+1,Y+5,Y+8)
  9. 0090   PLOTTEXT(X+1,Y,STRING$)
  10. 0100   VIEWPORT(0,319,0,199)
  11. 0110 ┼╬─╨╥╧├ ITALICS
  12.